home *** CD-ROM | disk | FTP | other *** search
/ US Vista Atlas & Shape Shuttle / Us Vista Atlas - Shape Shuttle (General Admission Software).BIN / aomc.inc < prev    next >
Text File  |  1995-05-30  |  5KB  |  92 lines
  1. '****************************************************************************
  2. '**                     AOMC-Specific Include File                         **
  3. '****************************************************************************
  4.  
  5. ''SUBs and FUNCTIONS
  6. DECLARE SUB ChkDrive
  7. DECLARE SUB ChkSpaceX
  8. DECLARE SUB Install
  9. DECLARE SUB MSOffice
  10. DECLARE SUB Reboot LIB "INIUPD.DLL"
  11. DECLARE FUNCTION OnWindowsNT LIB "INIUPD.DLL" AS INTEGER
  12. DECLARE FUNCTION VflatdPresent LIB "INIUPD.DLL" AS INTEGER
  13. DECLARE FUNCTION ExitWindowsExec LIB "User" (Exec$, Param$) AS INTEGER
  14. DECLARE FUNCTION FileOp LIB "MSCUISTF.DLL" (opCode%, strBuffer$, fileHandle%) AS INTEGER
  15. DECLARE FUNCTION ChkSpace(DriveToChk$, Size&) AS INTEGER
  16. DECLARE FUNCTION MakePath(szDir$, szFile$) AS STRING
  17. DECLARE FUNCTION PlayWAV(AudFile$) AS INTEGER
  18. 'DECLARE FUNCTION mciGetDeviceID LIB "MMSYSTEM.DLL" (DevName$) AS INTEGER
  19. 'DECLARE FUNCTION mciSendCommand LIB "MMSYSTEM.DLL" (DevID%, Message%, Param1$, Param2$) AS INTEGER
  20. 'DECLARE FUNCTION mciSendString LIB "MMSYSTEM.DLL" (Command$, RtnString$, RtnLength%, hCallback&) AS INTEGER
  21.  
  22. ''Windows Constants
  23. GLOBAL WinDrive$            '' Windows drive
  24. GLOBAL WinDir$              '' Windows directory
  25. GLOBAL WinSysDir$           '' Windows System directory
  26. GLOBAL WinSys32Dir$         '' Windows NT system 32 directory
  27. GLOBAL OnNT$                '' Running Windows NT or not
  28.  
  29. ''Application Vars
  30. GLOBAL Group$               '' Group name for Shell
  31. GLOBAL AppTitle$            '' Application Title for Shell
  32. GLOBAL AppExeName$          '' Application Executable Name for Shell
  33. GLOBAL AppDir$              '' Application directory on CD-ROM
  34. GLOBAL ScreensDir$            '' Screens directory on CD-ROM
  35. GLOBAL DataDir$                '' Data directory on CD-ROM
  36. GLOBAL ProgRoot$            '' Application default directory on HD
  37. GLOBAL RT$                  '' Directory on CD-ROM where VfW Runtime resides
  38. GLOBAL MSOBitmap$           '' MS Office bitmap file for AppTitle$
  39. GLOBAL InfoEXE$             '' Application to handle InfoFile$
  40. GLOBAL InfoFile$            '' Information filename - must be compatible with InfoExe$
  41. GLOBAL OtherAppsTitle$      '' Title for Other Apps Help File
  42. GLOBAL OtherAppsFile$       '' Other Apps Help Filename
  43. GLOBAL WantedDiskSize&      '' Disk space needed for minimum installation
  44. GLOBAL FullWantedDiskSize&  '' Disk space needed for full installation
  45. GLOBAL VfWSizeReq&          '' Total Disk Size required for VfW installation
  46.                             ''  based on cost calculation
  47. ''Dialog ID's
  48. CONST WELCOME       = 100   '' Welcome dlg
  49. CONST EXITFAILURE   = 400   '' Exit with Failure dlg
  50. CONST EXITQUIT      = 600   '' Exit due to Quit dlg
  51. CONST EXITSUCCESS   = 700   '' Exit with Success dlg
  52. CONST APPHELP       = 900   '' Help for WELCOME dlg
  53. CONST DO_AVI_YN     = 1000  '' Ask if VfW is to be installed
  54. CONST DO_OTHERS_YN  = 1100  '' Ask if user wants to see OTHERS.HLP
  55. CONST OPTIONS2      = 1200  '' Install option dlg
  56. CONST APPHELP2      = 1300  '' Help for OPTIONS2 dlg
  57. CONST VFWINFO       = 1400  '' Billboard VfW cost is determined
  58. CONST TOOBIG2       = 1500  '' Full install 'not enough space' dlg
  59. CONST ASKQUIT2      = 1700  '' Quit dlg
  60. CONST APPHELP3      = 1800  '' Help for DESTPATH2 dlg
  61. CONST DESTPATH2     = 2000  '' Gets destination path for full install
  62. CONST RESTART       = 2100  '' Asks if restart Windows or return to shell
  63. CONST RESTARTII     = 2200  '' Tells user system will need to leave to finish
  64. CONST BADPATH2      = 2300  '' Tells of invalid path
  65. CONST TOOBIG        = 6300  '' VfW install 'not enough space' dlg
  66.  
  67. '' sndPlaySound Flag values
  68. CONST SND_SYNC      = 0     '' play synchronously (default)
  69. CONST SND_ASYNC     = 1     '' play asynchronously
  70. CONST SND_NODEFAULT = 2     '' don't use default if sound not found
  71. CONST SND_MEMORY    = 4     '' the LPSTR points to a memory file
  72. CONST SND_LOOP      = 8     '' loop the sound, until next sndPlaySound
  73. CONST SND_NOSTOP    = 10    '' dont stop any currently playing sound
  74.  
  75. ''Bitmap ID
  76. CONST LOGO = 2              '' Logo 2 in MSCUISTF.DLL (1 is just AOMC logo)
  77.  
  78. ''Script Constants
  79. GLOBAL DEST$                '' Default destination directory
  80. GLOBAL SrcDir$              '' Source Directory of install script
  81. GLOBAL SrcDrive$            '' Source Drive (really the CD-ROM Drive Letter)
  82. GLOBAL dialog$              '' Set to EXITSUCCESS, EXITQUIT, or EXITFAILURE
  83. GLOBAL OPTCUR$              '' Option selection from option dialog
  84. GLOBAL CheckedDrive$        '' Assigned a drive letter and passed to ChkSpace
  85. GLOBAL VfW_ANSWER$          '' Holds answer to VfW dlg
  86. GLOBAL OpProc%              '' Holds option procedure from OPTIONS dlg
  87. GLOBAL VfWFailed%           '' Flag to indicate failure of VfW install
  88.  
  89. ''ON ERROR Error Codes (Continued)
  90. CONST STFPROBLEM      = 1026   ''setup problem error
  91.  
  92.